object WebModule2: TWebModule2
OldCreateOrder = False
Actions = <
item
Default = True
Name = 'WebActionItem1'
OnAction = WebModule2WebActionItem1Action
end>
Left = 323
Top = 186
Height = 346
Width = 524
object DCOMConnection1: TDCOMConnection
ServerGUID = '{A2A63DA5-7257-11D3-BE12-00104BF89DAD}'
ServerName = 'Server51.TDM'
Left = 72
Top = 32
end
object XMLBroker1: TXMLBroker
MaxRecords = 3
Params = <>
ProviderName = 'CustomerOrdersProvider'
RemoteServer = DCOMConnection1
WebDispatch.PathInfo = 'XMLBroker1'
OnRequestRecords = XMLBroker1RequestRecords
ReconcileProducer = ReconcilePageProducer1
Left = 72
Top = 96
end
object CustomerOrdersMidasPageProducer: TMidasPageProducer
HTMLDoc.Strings = (
''
''
''
''
'<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
''
'')
Left = 80
Top = 168
object QueryForm1: TQueryForm
Action =
'http://192.168.91.201/cgi-bin/Client51.exe/CustomerOrdersMidasPa' +
'geProducer'
Method = fmGet
object QueryFieldGroup1: TQueryFieldGroup
object HiddenRecNo: TQueryHiddenText
Text = '0'
end
end
object QueryButtons1: TQueryButtons
object NextXMLPacketButton: TSubmitQueryButton
Caption = 'Next XML Packet'
XMLComponent = QueryForm1
end
end
end
object DataForm1: TDataForm
object ImgDataNavigator1: TImgDataNavigator
XMLComponent = FieldGroup1
ImagePathURL = 'http://192.168.91.201/images/'
end
object FieldGroup1: TFieldGroup
XMLBroker = XMLBroker1
object CustNo: TFieldText
DisplayWidth = 10
Caption = 'CustNo'
FieldName = 'CustNo'
end
object Company: TFieldText
DisplayWidth = 30
Caption = 'Company'
FieldName = 'Company'
end
object Addr1: TFieldText
DisplayWidth = 30
Caption = 'Addr1'
FieldName = 'Addr1'
end
object City: TFieldText
DisplayWidth = 15
Caption = 'City'
FieldName = 'City'
end
object State: TFieldText
DisplayWidth = 20
Caption = 'State'
FieldName = 'State'
end
object Zip: TFieldText
DisplayWidth = 10
Caption = 'Zip'
FieldName = 'Zip'
end
object Country: TFieldText
DisplayWidth = 20
Caption = 'Country'
FieldName = 'Country'
end
object Contact: TFieldText
DisplayWidth = 20
Caption = 'Contact'
FieldName = 'Contact'
end
object FieldStatus1: TFieldStatus
Caption = '*'
end
end
object ImgDataNavigator2: TImgDataNavigator
XMLComponent = DataGrid1
ImagePathURL = 'http://192.168.91.201/images/'
end
object DataGrid1: TDataGrid
XMLBroker = XMLBroker1
XMLDataSetField = 'OrdersTable'
object OrderNo: TTextColumn
DisplayWidth = 10
Caption = 'OrderNo'
FieldName = 'OrderNo'
end
object CustNo2: TTextColumn
DisplayWidth = 10
Caption = 'CustNo'
FieldName = 'CustNo'
end
object SaleDate: TTextColumn
DisplayWidth = 18
Caption = 'SaleDate'
FieldName = 'SaleDate'
end
object ShipDate: TTextColumn
DisplayWidth = 18
Caption = 'ShipDate'
FieldName = 'ShipDate'
end
object ShipVIA: TTextColumn
DisplayWidth = 7
Caption = 'ShipVIA'
FieldName = 'ShipVIA'
end
object ItemsTotal: TTextColumn
DisplayWidth = 10
Caption = 'ItemsTotal'
FieldName = 'ItemsTotal'
end
object AmountPaid: TTextColumn
DisplayWidth = 10
Caption = 'AmountPaid'
FieldName = 'AmountPaid'
end
object StatusColumn1: TStatusColumn
Caption = '*'
end
end
end
end
object ReconcilePageProducer1: TReconcilePageProducer
HTMLDoc.Strings = (
''
''
''
''
'<#INCLUDES><#STYLES><#WARNINGS>'
''
'
'
''
'
'
'<#FORMS><#SCRIPT>'
''
'')
ReconcileGrid.ConflictingColumn.Caption = 'Conflicting Value'
ReconcileGrid.ConflictingColumn.DisplayWidth = 24
ReconcileGrid.FieldNameColumn.Caption = 'Field Name'
ReconcileGrid.FieldNameColumn.DisplayWidth = 18
ReconcileGrid.ModifiedColumn.Caption = 'Submitted Value'
ReconcileGrid.ModifiedColumn.DisplayWidth = 24
ReconcileGrid.OriginalColumn.Caption = 'Original Value'
ReconcileGrid.OriginalColumn.DisplayWidth = 24
Left = 192
Top = 96
end
end